home *** CD-ROM | disk | FTP | other *** search
/ HyperLib 1997 Winter - Disc 1 / HYPERLIB-1997-Winter-CD1.ISO.7z / HYPERLIB-1997-Winter-CD1.ISO / オンラインウェア / BUS / マック手帳Pro2.4F.sit / マック手帳Pro2.4F / マック手帳Pro folder F / マック手帳Pro(FAT) / TIMETABLE / stack.txt < prev   
Text File  |  1996-03-13  |  20KB  |  615 lines

  1. -- stack: in
  2. -- format: 10 (HyperCard 2)
  3. -- flags: 0x1000 (none)
  4. -- protect password hash: 0
  5. -- maximum user level: 5 (scripting)
  6. -- window: Rect(x1=64, y1=69, x2=576, y2=411)
  7. -- screen: Rect(x1=0, y1=0, x2=640, y2=480)
  8. -- card dimensions: w=512 h=342
  9. -- scroll: x=0 y=0
  10. -- background count: 1
  11. -- first background id: 2742
  12. -- card count: 1
  13. -- first card id: 2977
  14. -- list block id: 2261
  15. -- print block id: 0
  16. -- font table block id: 3561
  17. -- style table block id: 3323
  18. -- free block count: 0
  19. -- free size: 0 bytes
  20. -- total size: 18880 bytes
  21. -- stack block size: 15360 bytes
  22. -- created by hypercard version: 0x02308000
  23. -- compacted by hypercard version: 0x02308000
  24. -- modified by hypercard version: 0x02308000
  25. -- opened by hypercard version: 0x02308000
  26. -- patterns[0]: 0x0000000000000000
  27. -- patterns[1]: 0x8000000008000000
  28. -- patterns[2]: 0x8800220088002200
  29. -- patterns[3]: 0x8888222288882222
  30. -- patterns[4]: 0x88AA22AA88AA22AA
  31. -- patterns[5]: 0xCCAA33AACCAA33AA
  32. -- patterns[6]: 0xEEAABBAAEEAABBAA
  33. -- patterns[7]: 0xEEBBBBEEEEBBBBEE
  34. -- patterns[8]: 0xFFBBFFEEFFBBFFEE
  35. -- patterns[9]: 0xFFBBFFFFFFBBFFFF
  36. -- patterns[10]: 0x8010022001084004
  37. -- patterns[11]: 0xFFFFFFFFFFFFFFFF
  38. -- patterns[12]: 0x8822882288228822
  39. -- patterns[13]: 0x1122448811224488
  40. -- patterns[14]: 0xC4800C6843023026
  41. -- patterns[15]: 0xB130031BD8C00C8D
  42. -- patterns[16]: 0xAA00AA00AA00AA00
  43. -- patterns[17]: 0x8822552288225522
  44. -- patterns[18]: 0x8855225588552255
  45. -- patterns[19]: 0x77DD77DD77DD77DD
  46. -- patterns[20]: 0x8000000000000000
  47. -- patterns[21]: 0xAA55AA55AA55AA55
  48. -- patterns[22]: 0x038448300C020101
  49. -- patterns[23]: 0x8244394482010101
  50. -- patterns[24]: 0x8814224188412214
  51. -- patterns[25]: 0x8080413E080814E3
  52. -- patterns[26]: 0x22048C7422179810
  53. -- patterns[27]: 0xBE808808EB088880
  54. -- patterns[28]: 0x25C8328964244C92
  55. -- patterns[29]: 0xA29C41BE2AC914EB
  56. -- patterns[30]: 0x40A00000040A0000
  57. -- patterns[31]: 0x8040200002040800
  58. -- patterns[32]: 0xAA00800088008000
  59. -- patterns[33]: 0xFF80808080808080
  60. -- patterns[34]: 0x081C22C180010204
  61. -- patterns[35]: 0xFF808080FF080808
  62. -- patterns[36]: 0xF87422478F172271
  63. -- patterns[37]: 0xBF00BFBFB0B0B0B0
  64. -- patterns[38]: 0xFF7FBE5DA2418000
  65. -- patterns[39]: 0xFAF5FAF5A050A050
  66. -- checksum: 0xDD725B14
  67. ----- HyperTalk script -----
  68. on openCard
  69.   Send colorMe to this card
  70.   pass openCard
  71. end openCard
  72.  
  73. on closeCard
  74.   lock screen
  75.   pass closeCard
  76. end closeCard
  77.  
  78. on colorMe
  79.   AddColor colorCard,stamp,0
  80. end colorMe
  81.  
  82. on openStack
  83.   AddColor install
  84.   nike
  85.   pass openStack
  86. end openStack
  87.  
  88. on closeStack
  89.   AddColor remove
  90.   kukuri
  91.   pass closeStack
  92. end closeStack
  93.  
  94. on nike
  95.   set userLevel to 5
  96.   if there is a menu "テε溪王ナク" then delete menu "テε溪王ナク"
  97.   if there is a menu "テッ窶愿ィW" then delete menu "テッ窶愿ィW"
  98.   if there is a menu "竏ォïャ≫ˆž" then delete menu "竏ォïャ≫ˆž"
  99.   if there is a menu "ホゥツソ竕、ナク" then delete menu "ホゥツソ竕、ナク"
  100.   if there is a menu "テδエ窶コニ’" then delete menu "テδエ窶コニ’"
  101.   if there is a menu "ツオテƒïャツコïャ≫┐竏照’" then delete menu "ツオテƒïャツコïャ≫┐竏照’"
  102.   if there is a menu "ツャ竏槐ク" then delete menu "ツャ竏槐ク"
  103.   createFileMenu
  104.   createEditMenu
  105.   createFunctionMenu
  106.   createMoveMenu
  107.   createAddMenu
  108. end nike
  109.  
  110. on kukuri
  111.   reset menuBar
  112. end kukuri
  113.  
  114. on createFileMenu
  115.   if there is a menu "テ液テ院テ韻テ嘉」" then exit createFileMenu
  116.   create menu "テ液テ院テ韻テ嘉」"
  117.   put createFileMenuItems() into menu "テ液テ院テ韻テ嘉」" with menuMsg createFileMenuMsgs()
  118.   disable menuItem 5 of menu "テ液テ院テ韻テ嘉」"
  119.   disable menuItem 6 of menu "テ液テ院テ韻テ嘉」"
  120.   disable menuItem 8 of menu "テ液テ院テ韻テ嘉」"
  121.   disable menuItem 9 of menu "テ液テ院テ韻テ嘉」"
  122. end createFileMenu
  123.  
  124. function createFileMenuItems
  125. RETURN "テェVテ」K" & RETURN & "テ、Jテ‡竕 " & RETURN & "テッツャテ‡竏づ‡テˆ" & RETURN & "-" & RETURN & "テウpテゥテ愿ェ窶コテュテ‹" & RETURN & "テ テ崚ァツク" & RETURN & "-" & RETURN & "テ映テ…[テ運テゥテ甘‡テ凝ァテサテ‡窶コ" & RETURN & "テ映テ…[テ運ティテォテ‡ツエテァテサテ‡窶コ" & RETURN & "テ映テ…[テ運テ 竅„テャテ†" & RETURN & "-" & RETURN & "テ頴テ…[テ姥テ嘉。テ嘉ャテ陰テ叡テ益" & RETURN & "-" & RETURN & "テ駅テ嘉」テ益" & RETURN & "-" & RETURN & "ティIテウマ\" & RETURN
  126. end createFileMenuItems
  127.  
  128. function createFileMenuMsgs
  129. RETURN "nStack" & RETURN & "oStack" & RETURN & "cStack" & RETURN & "" & RETURN & "" & RETURN & "" & RETURN & "" & RETURN & "" & RETURN & "" & RETURN & "" & RETURN & "" & RETURN & "verUp" & RETURN & "" & RETURN & "oHelp" & RETURN & "" & RETURN & "endPim"
  130. end createFileMenuMsgs
  131.  
  132. on createEditMenu
  133.   if there is a menu "テッ窶愿①ティW" then exit createEditMenu
  134.   create menu "テッ窶愿①ティW"
  135.   put createEditMenuItems() into menu "テッ窶愿①ティW" with menuMsg createEditMenuMsgs()
  136.   disable menuItem 11 of menu "テッ窶愿①ティW"
  137. end createEditMenu
  138.  
  139. function createEditMenuItems
  140. RETURN "テゥテ甘‡テ凝ィツ。テ‡ツオ" & RETURN & "-" & RETURN & "テ雨テ叡テ曳" & RETURN & "テ嘘テ鋭テ…[" & RETURN & "テ謁テ…[テ厩テ曳" & RETURN & "ティツ。テ」テゥ" & RETURN & "-" & RETURN & "テェVテ」Kテ雨テ…[テ栄" & RETURN & "テ雨テ…[テ栄テァテ古ィテコ" & RETURN & "-" & RETURN & "テ映テ…[テ運テァテ湘ェツィ" & RETURN & "-" & RETURN & "テ」テ崚‡ツエテウeテウツ テァテ古ィテコ" & RETURN
  141. end createEditMenuItems
  142.  
  143. function createEditMenuMsgs
  144. RETURN "cancel" & RETURN & "" & RETURN & "cut" & RETURN & "copy" & RETURN & "paste" & RETURN & "delete" & RETURN & "" & RETURN & "nCard" & RETURN & "dCard" & RETURN & "" & RETURN & "" & RETURN & "" & RETURN & "dSpace"
  145. end createEditMenuMsgs
  146.  
  147. on createFunctionMenu
  148.   if there is a menu "テ」@テ①テョ¥" then exit createFunctionMenu
  149.   create menu "テ」@テ①テョ¥"
  150.   put createFunctionMenuItems() into menu "テ」@テ①テョ¥" with menuMsg createFunctionMenuMsgs()
  151.   disable menuItem 1 of menu "テ」@テ①テョ¥"
  152.   disable menuItem 2 of menu "テ」@テ①テョ¥"
  153.   disable menuItem 4 of menu "テ」@テ①テョ¥"
  154.   disable menuItem 6 of menu "テ」@テ①テョ¥"
  155. end createFunctionMenu
  156.  
  157. function createFunctionMenuItems
  158. RETURN "テ・テシテァトア" & RETURN & "テ噂テ…[テ曳" & RETURN & "-" & RETURN & "テ嘉、テ厩テ曳" & RETURN & "-" & RETURN & "テ雲テ韻テ陰テ嘉」" & RETURN & "-" & RETURN & "テ嘉…テ叡テ瓜テ…[テ姥" & RETURN
  159. end createFunctionMenuItems
  160.  
  161. function createFunctionMenuMsgs
  162. RETURN "" & RETURN & "" & RETURN & "" & RETURN & "" & RETURN & "" & RETURN & "" & RETURN & "" & RETURN & "msg"
  163. end createFunctionMenuMsgs
  164.  
  165. on createMoveMenu
  166.   if there is a menu "テ 竅„テ①テャテ†" then exit createMoveMenu
  167.   create menu "テ 竅„テ①テャテ†"
  168.   put createMoveMenuItems() into menu "テ 竅„テ①テャテ†" with menuMsg createMoveMenuMsgs()
  169.   disable menuItem 7 of menu "テ 竅„テ①テャテ†"
  170. end createMoveMenu
  171.  
  172. function createMoveMenuItems
  173. RETURN "テ・vテゥZテ」@" & RETURN & "-" & RETURN & "テゥテサテ・vテ⑥テ雨テ嘉・テ嘉ャテ雲テ…[" & RETURN & "-" & RETURN & "テ嘉…テ…[テ嘉」テウ¥テアテ’" & RETURN & "-" & RETURN & "テ韻テ嘉ャテ映テ叡テ丑テ厩" & RETURN & "-" & RETURN & "テ越テ…[テ嘉„" & RETURN
  174. end createMoveMenuItems
  175.  
  176. function createMoveMenuMsgs
  177. RETURN "calculator" & RETURN & "" & RETURN & "clock" & RETURN & "" & RETURN & "mail" & RETURN & "" & RETURN & "" & RETURN & "" & RETURN & "oHome"
  178. end createMoveMenuMsgs
  179.  
  180. on createAddMenu
  181.   if there is a menu "テ、gテ①テュツ」" then exit createAddMenu
  182.   create menu "テ、gテ①テュツ」"
  183.   put createAddMenuItems() into menu "テ、gテ①テュツ」" with menuMsg createAddMenuMsgs()
  184. end createAddMenu
  185.  
  186. function createAddMenuItems
  187. RETURN "テ、gテュツ」テ噂テ液テ曳テ嘉…テ泳テ嘉姪…[" & RETURN
  188. end createAddMenuItems
  189.  
  190. function createAddMenuMsgs
  191. RETURN "menu"
  192. end createAddMenuMsgs
  193.  
  194. on nStack
  195.   get line 1 to 3 of InputDialog ("テェVテ」Kテ厩テ運テ叡テ丑テァテ湘ェツィテ雲テ韻テ陰テ嘉ァテ碓","テ厩テ運テ叡テ丑テアツコ","テ‡ツェテ‡テεォツコテ‡テε影テ嘉ャテ益テ嘉・テ…[テ曳テ‡ï」ソテゥgテウpテ‡竏妥‡テ暗ィテ催ァテ。テ‡テ陛…uテ‡ツェテ‡テεォツコテ…vテ‡ï」ソテ丑テ嘉、テ叡テ丑テ‡ツオテ‡ニ津「竏ォテ‡竕・テ‡ツ「テ③", "テァテ湘ェツィ,テ鵜テ嘉嘉嘉ャテ瓜テ嘉」,,テ‡ツェテ‡テεォツコ","ADDRESS,BUSINESS,FREE,SCHEDULE")
  196.   put it into form1
  197.   get line 1 of form1
  198.   put it into temp1
  199.   get line 2 of form1
  200.   put it into kakunin1
  201.   get line 3 of form1
  202.   put it into name1
  203.   if kakunin1 is "テ鵜テ嘉嘉嘉ャテ瓜テ嘉」" then
  204.     exit nStack
  205.   end if
  206.   if kakunin1 is "テァテ湘ェツィ" then
  207.     if temp1 is "ADDRESS" then
  208.       put name1 & ".ADD" into a
  209.       save stack "ADDRESS" as  stack a
  210.       go to stack a
  211.       exit nStack
  212.     end if
  213.     if temp1 is "BUSINESS" then
  214.       put it & ".BUS" into b
  215.       save stack "BUSINESS" as  stack b
  216.       go to stack b
  217.       exit nStack
  218.     end if
  219.     if temp1 is "FREE" then
  220.       put it & ".FRE" into f
  221.       save stack "FREE" as  stack f
  222.       go to stack f
  223.       exit nStack
  224.     end if
  225.     if temp1 is "SCHEDULE" then
  226.       put it & ".SCH" into s
  227.       save stack "SCHEDULE" as  stack s
  228.       go to stack s
  229.       exit nStack
  230.     end if
  231.     exit nStack
  232.   end if
  233.   if kakunin1 is "テ‡ツェテ‡テεォツコ" then
  234.     get line 1 to 3 of InputDialog ("テェVテ」Kテ厩テ運テ叡テ丑テァテ湘ェツィテ雲テ韻テ陰テ嘉ァテ碓","テ厩テ運テ叡テ丑テアツコ","","テァテ湘ェツィ,テ鵜テ嘉嘉嘉ャテ瓜テ嘉」","MEMO,TIMETABLE")
  235.     put it into form2
  236.     get line 1 of form2
  237.     put it into temp2
  238.     get line 2 of form2
  239.     put it into kakunin2
  240.     get line 3 of form2
  241.     put it into name2
  242.     if kakunin2 is "テ鵜テ嘉嘉嘉ャテ瓜テ嘉」" then
  243.       exit nStack
  244.     end if
  245.     if kakunin2 is "テァテ湘ェツィ" then
  246.       if temp2 is "MEMO" then
  247.         put it & ".MEM" into m
  248.         save stack "MEMO" as  stack m
  249.         go to stack m
  250.         exit nStack
  251.       end if
  252.       if temp2 is "TIMETABLE" then
  253.         put it & ".TIM" into t
  254.         save stack "TIMETABLE" as  stack t
  255.         go to stack t
  256.         exit nStack
  257.       end if
  258.       exit nStack
  259.     end if
  260.     exit nStack
  261.   end if
  262. end nStack
  263.  
  264. on oStack
  265.   answer "テ‡ツアテ‡テε厩テ運テ叡テ丑テ‡ï」ソテッツャテ‡竏づ‡ニ津‡窶。テァ¥テ‡ツ「テ‡窶ケテ‡マ\テ‡テ津‡ツゥテ③" with "テ‡テ陛‡ツ「" or "テ‡ツ「テ‡ツ「テ‡ツカ"
  266.   if it is "テ‡ツ「テ‡ツ「テ‡ツカ" then
  267.     exit oStack
  268.   end if
  269.   if it is "テ‡テ陛‡ツ「" then
  270.     answer file "テ、Jテ‡竕 テ厩テ運テ叡テ丑テ‡ï」ソテォIテォï」ソテ‡ツオテ‡ニ津「竏ォテ‡竕・テ‡ツ「テ③" of type STAK
  271.     if it is empty then
  272.       exit oStack
  273.     end if
  274.     go to stack it
  275.   end if
  276. end oStack
  277.  
  278. on cStack
  279.   domenu "テ厩テ運テ叡テ丑テ‡ï」ソテッツャテ‡竏づ‡テˆ"
  280. end cStack
  281.  
  282. on moveData
  283.   get line 1 to 4 of InputDialog ("テ映テ…[テ運テ 竅„テャテ†テ雲テ韻テ陰テ嘉ァテ碓","テ 竅„テャテ†テ・竕・テ厩テ運テ叡テ丑,テ 竅„テャテ†テェテ甘厩テ運テ叡テ丑","テ 竅„テャテ†テ・竕・テ厩テ運テ叡テ丑テアツコ,テ 竅„テャテ†テェテ甘厩テ運テ叡テ丑テアツコ","テ、Jテゥn,テ鵜テ嘉嘉嘉ャテ瓜テ嘉」","ADDRESS,BUSINESS")
  284.   put it into aa
  285.   get line 1 of aa
  286.   put it into bb
  287.   get line 2 of aa
  288.   put it into cc
  289.   get line 3 of aa
  290.   put it into dd
  291.   get line 4 of aa
  292.   put it into ee
  293.   if cc is "テ鵜テ嘉嘉嘉ャテ瓜テ嘉」" then
  294.     exit moveData
  295.   end if
  296.   if cc is "テ、Jテゥn" then
  297.     if bb is "ADDRESS" then
  298.       answer "テ烏テ丑テ厩テ益テ嘉・テ厩ティZティテ、テイ^テ‡テε頴テ…[テ姥テ嘉。テ嘉ャ4.0テ ツサテァ~テ‡テε映テ…[テ運テ‡ï」ソテ 竅„テャテ†テ‡ツオテ‡窶ケテ‡竏妥③テ‡テ甘‡テ偲‡ツオテ‡ツ「テ‡竕暗‡竏妥‡ツゥテ③" with "テ‡テ陛‡ツ「" or "テ‡ツ「テ‡ツ「テ‡ツカ"
  299.       if it is "テ‡ツ「テ‡ツ「テ‡ツカ" then
  300.         exit moveData
  301.       end if
  302.       if it is "テ‡テ陛‡ツ「" then
  303.         put "テ映テ…[テ運テ 竅„テャテ†ティテ„テョトアテュテœ"
  304.         lock screen
  305.         go to stack ee
  306.         if ee is empty then
  307.           tyudan
  308.           exit moveData
  309.         end if
  310.         go to cd 2
  311.         domenu "テェVテ」Kテ雨テ…[テ栄"
  312.         go to stack dd
  313.         if dd is empty then
  314.           tyudan
  315.           exit moveData
  316.         end if
  317.         domenu "テォOテ‡テε雨テ…[テ栄"
  318.         put number of this cd into endCards
  319.         repeat with i = 2 to endCards
  320.           go to cd i
  321.           select text of bg fld "テゥテ…テアツコ2"
  322.           put the selectedText into a
  323.           select text of bg fld "テ液テ嘉、テ卯テ永2"
  324.           put the selectedText into b
  325.           select text of bg fld "テェツエテッツ 2"
  326.           put the selectedText into c
  327.           select text of bg fld "テョNテウïャ‚2"
  328.           put the selectedText into d
  329.           select text of bg fld "テ・テ・テ「tテ・^2"
  330.           put the selectedText into e
  331.           select text of bg fld "テ、ツアテゥx2"
  332.           put the selectedText into f
  333.           select text of bg fld "テ英テ噂テ嘘テ嘉ャ2"
  334.           put the selectedText into g
  335.           select text of bg fld "テゥgテウpテ」@テゥテŒ2"
  336.           put the selectedText into h
  337.           select text of bg fld "テ瑛テ叡テ曳テ」ツォ2"
  338.           put the selectedText into i
  339.           select text of bg fld "IDテョ窶佚ァテœ2"
  340.           put the selectedText into j
  341.           select text of bg fld "テ「テ氾ゥ窶禿アツコ2"
  342.           put the selectedText into k
  343.           select text of bg fld "テ液テ嘉、テ卯テ永4"
  344.           put the selectedText into l
  345.           select text of bg fld "テッテョティテェテアツコ2"
  346.           put the selectedText into m
  347.           select text of bg fld "テアï」ソテェEテアツコ2"
  348.           put the selectedText into n
  349.           select text of bg fld "テウXテッテキテョ窶佚ァテœ2"
  350.           put the selectedText into o
  351.           select text of bg fld "ティZティテ、2"
  352.           put the selectedText into p
  353.           select text of bg fld "テャdテイb2"
  354.           put the selectedText into q
  355.           select text of bg fld "FAX2"
  356.           put the selectedText into r
  357.           select text of bg fld "テウXテッテキテョ窶佚ァテœ4"
  358.           put the selectedText into s
  359.           select text of bg fld "ティZティテ、4"
  360.           put the selectedText into t
  361.           select text of bg fld "テャdテイb4"
  362.           put the selectedText into u
  363.           select text of bg fld "テ榎テ臼テ悦テ嘉」2"
  364.           put the selectedText into v
  365.           select text of bg fld "テ・gテォ窶”2"
  366.           put the selectedText into w
  367.           select text of bg fld "FAX4"
  368.           put the selectedText into x
  369.           go to stack ee
  370.           add 1 to i
  371.           go to cd i
  372.           put a into bg fld "テゥテ…テアツコ2"
  373.           put b into bg fld "テ液テ嘉、テ卯テ永2"
  374.           put c into bg fld "テェツエテッツ 2"
  375.           put d into bg fld "テョNテウïャ‚2"
  376.           put e into bg fld "テ・テ・テ「tテ・^2"
  377.           put f into bg fld "テ、ツアテゥx2"
  378.           put g into bg fld "テ英テ噂テ嘘テ嘉ャ2"
  379.           put h into bg fld "テゥgテウpテ」@テゥテŒ2"
  380.           put i into bg fld "テ瑛テ叡テ曳テ」ツォ2"
  381.           put j into bg fld "IDテョ窶佚ァテœ2"
  382.           put k into bg fld "テ「テ氾ゥ窶禿アツコ2"
  383.           put l into bg fld "テ液テ嘉、テ卯テ永4"
  384.           put m into bg fld "テッテョティテェテアツコ2"
  385.           put n into bg fld "テアï」ソテェEテアツコ2"
  386.           put o into bg fld "テウXテッテキテョ窶佚ァテœ2"
  387.           put p into bg fld "ティZティテ、2"
  388.           put q into bg fld "テャdテイb2"
  389.           put r into bg fld "FAX2"
  390.           put s into bg fld "テウXテッテキテョ窶佚ァテœ4"
  391.           put t into bg fld "ティZティテ、4"
  392.           put u into bg fld "テャdテイb4"
  393.           put v into bg fld "テ榎テ臼テ悦テ嘉」2"
  394.           put w into bg fld "テ・gテォ窶”2"
  395.           put x into bg fld "FAX4"
  396.           put "テォツクテァツー" & i & "テアテ。テ‡窶ケテ‡竕暗ィIテウマ\テ‡ツオテ‡窶ケテ‡ツオテ‡ホゥテ③"
  397.           subtract 1 from i
  398.           go to stack dd
  399.         end repeat
  400.         owari
  401.         exit moveData
  402.       end if
  403.       exit moveData
  404.     end if
  405.     if bb is "BUSINESS" then
  406.       answer "テ烏テ丑テ厩テ益テ嘉・テ厩テアツコテゥhテ、ツォテウテケテ‡テε頴テ…[テ姥テ嘉。テ嘉ャ2.0テ ツサテァ~テ‡テε映テ…[テ運テ‡ï」ソテ 竅„テャテ†テ‡ツオテ‡窶ケテ‡竏妥③テ‡テ甘‡テ偲‡ツオテ‡ツ「テ‡竕暗‡竏妥‡ツゥテ③" with "テ‡テ陛‡ツ「" or "テ‡ツ「テ‡ツ「テ‡ツカ"
  407.       if it is "テ‡ツ「テ‡ツ「テ‡ツカ" then
  408.         exit moveData
  409.       end if
  410.       if it is "テ‡テ陛‡ツ「" then
  411.         put "テ映テ…[テ運テ 竅„テャテ†ティテ„テョトアテュテœ"
  412.         lock screen
  413.         go to stack ee
  414.         if ee is empty then
  415.           tyudan
  416.           exit moveData
  417.         end if
  418.         go to cd 2
  419.         domenu "テェVテ」Kテ雨テ…[テ栄"
  420.         go to stack dd
  421.         if dd is empty then
  422.           tyudan
  423.           exit moveData
  424.         end if
  425.         domenu "テォOテ‡テε雨テ…[テ栄"
  426.         put number of this cd into endCards
  427.         repeat with i = 2 to endCards
  428.           go to cd i
  429.           select text of bg fld "テゥテ…テアツコ2"
  430.           put the selectedText into a
  431.           select text of bg fld "テ液テ嘉、テ卯テ永2"
  432.           put the selectedText into b
  433.           select text of bg fld "テェツエテッツ 2"
  434.           put the selectedText into c
  435.           select text of bg fld "テョNテウïャ‚2"
  436.           put the selectedText into d
  437.           select text of bg fld "テ瑛テ叡テ曳テ」ツォ2"
  438.           put the selectedText into i
  439.           select text of bg fld "IDテョ窶佚ァテœ2"
  440.           put the selectedText into j
  441.           select text of bg fld "テ「テ氾ゥ窶禿アツコ2"
  442.           put the selectedText into k
  443.           select text of bg fld "テ液テ嘉、テ卯テ永4"
  444.           put the selectedText into l
  445.           select text of bg fld "テッテョティテェテアツコ2"
  446.           put the selectedText into m
  447.           select text of bg fld "テアï」ソテェEテアツコ2"
  448.           put the selectedText into n
  449.           select text of bg fld "テウXテッテキテョ窶佚ァテœ2"
  450.           put the selectedText into o
  451.           select text of bg fld "ティZティテ、2"
  452.           put the selectedText into p
  453.           select text of bg fld "テャdテイb2"
  454.           put the selectedText into q
  455.           select text of bg fld "テャdテイb4"
  456.           put the selectedText into r
  457.           select text of bg fld "FAX2"
  458.           put the selectedText into s
  459.           select text of bg fld "FAX4"
  460.           put the selectedText into t
  461.           select text of bg fld "テャヒ凖ゥテサ2"
  462.           put the selectedText into u
  463.           select text of bg fld "ティテ催ィテ、2"
  464.           put the selectedText into v
  465.           select text of bg fld "テョトアテァl"
  466.           put the selectedText into w
  467.           go to stack ee
  468.           add 1 to i
  469.           go to cd i
  470.           put a into bg fld "テゥテ…テアツコ2"
  471.           put b into bg fld "テ液テ嘉、テ卯テ永2"
  472.           put c into bg fld "テェツエテッツ 2"
  473.           put d into bg fld "テョNテウïャ‚2"
  474.           put i into bg fld "テ瑛テ叡テ曳テ」ツォ2"
  475.           put j into bg fld "IDテョ窶佚ァテœ2"
  476.           put k into bg fld "テ「テ氾ゥ窶禿アツコ2"
  477.           put l into bg fld "テ液テ嘉、テ卯テ永4"
  478.           put m into bg fld "テッテョティテェテアツコ2"
  479.           put n into bg fld "テアï」ソテェEテアツコ2"
  480.           put o into bg fld "テウXテッテキテョ窶佚ァテœ2"
  481.           put p into bg fld "ティZティテ、2"
  482.           put q into bg fld "テャdテイb2"
  483.           put r into bg fld "テャdテイb4"
  484.           put s into bg fld "FAX2"
  485.           put t into bg fld "FAX4"
  486.           put u into bg fld "テャヒ凖ゥテサ2"
  487.           put v into bg fld "ティテ催ィテ、2"
  488.           put w into bg fld "テョトアテァl"
  489.           put "テォツクテァツー" & i & "テアテ。テ‡窶ケテ‡竕暗ィIテウマ\テ‡ツオテ‡窶ケテ‡ツオテ‡ホゥテ③"
  490.           subtract 1 from i
  491.           go to stack dd
  492.         end repeat
  493.         owari
  494.         exit moveData
  495.       end if
  496.       exit moveData
  497.     end if
  498.     exit moveData
  499.   end if
  500. end moveData
  501.  
  502. on owari
  503.   go to stack "テ厭テ叡テ丑テゥテ凝ュ窶 Pro"
  504.   go to cd "テ曳テ叡テ益"
  505.   unlock screen
  506.   answer "テ、テ†テウマ\テ‡ツオテ‡窶ケテ‡ツオテ‡ホゥテ③"
  507. end owari
  508.  
  509. on tyudan
  510.   go to stack "テ厭テ叡テ丑テゥテ凝ュ窶 Pro"
  511.   go to cd "テ曳テ叡テ益"
  512.   unlock screen
  513.   answer "テ烏テ嘉「テ…[テ‡邃「テョ竕 テェ竏づ‡ツオテ‡窶ケテ‡ツオテ‡ホゥテ③"
  514. end tyudan
  515.  
  516. on verUp
  517.   get line 1 to 2 of InputDialog ("テ頴テ…[テ姥テ嘉。テ嘉ャテ陰テ叡テ益テ雲テ韻テ陰テ嘉ァテ碓","","","テ、Jテゥn,テ鵜テ嘉嘉嘉ャテ瓜テ嘉」","TYPE P-B,TYPE P-F,TYPE P-S,OPTION TC")
  518.   put it into a
  519.   get line 1 of a
  520.   put it into b
  521.   get line 2 of a
  522.   put it into c
  523.   if c is "テ鵜テ嘉嘉嘉ャテ瓜テ嘉」" then
  524.     exit verUp
  525.   end if
  526.   if c is "テ、Jテゥn" then
  527.     answer file "テ英テ叡テ荏テ液テ院テ韻テ嘉」テ‡テ陛‡ツォテ‡ツアテ‡竕暗‡竏妥‡ツゥテ③" of type STAK
  528.     if it is empty then
  529.       exit verUp
  530.     end if
  531.     put it into patch
  532.     put "ティテ„テョトアテュテœ"
  533.     wait 3 secs
  534.     put "テァXテェVテュテœ"
  535.     lock screen
  536.     go to stack patch
  537.     bigin
  538.     exit verUp
  539.   end if
  540. end verUp
  541.  
  542. on oHelp
  543.   go to stack "テ駅テ嘉」テ益" in a new window
  544. end oHelp
  545.  
  546. on endPim
  547.   domenu "HyperCardティIテウマ\"
  548. end endPim
  549.  
  550. on cancelIt
  551.   domenu "テゥテ甘‡テ凝ィツ。テ‡ツオ"
  552. end cancelIt
  553.  
  554. on cutIt
  555.   domenu "テ雨テ叡テ曳"
  556. end cutIt
  557.  
  558. on copyIt
  559.   domenu "テ嘘テ鋭テ…["
  560. end copyIt
  561.  
  562. on pasteIt
  563.   domenu "テ謁テ…[テ厩テ曳"
  564. end pasteIt
  565.  
  566. on deleteIt
  567.   domenu "ティツ。テ」テゥ"
  568. end deleteIt
  569.  
  570. on nCard
  571.   domenu "テェVテ」Kテ雨テ…[テ栄"
  572. end nCard
  573.  
  574. on dCard
  575.   domenu "テ雨テ…[テ栄テァテ古ィテコ"
  576. end dCard
  577.  
  578. on dSpace
  579.   domenu "テ厩テ運テ叡テ丑テェテ†テウテケ"
  580. end dSpace
  581.  
  582. on msg
  583.   show msg box
  584. end msg
  585.  
  586. on calculator
  587.   go to stack "テ迂テ益テ鰻テ嘉。テ嘉ャ" in a new window
  588. end calculator
  589.  
  590. on clock
  591.   go to stack "テ迂テ益テ鰻テ嘉。テ嘉ャ" in a new window
  592.   go to cd 2
  593. end clock
  594.  
  595. on mail
  596.   go to stack "テ迂テ益テ鰻テ嘉。テ嘉ャ" in a new window
  597.   go to cd 3
  598. end mail
  599.  
  600. on oHome
  601.   go to stack home
  602. end oHome
  603.  
  604. on menu
  605.   answer "テ‡ツアテ‡テε厩テ運テ叡テ丑テ‡ï」ソテッツャテ‡竏づ‡ニ津‡窶。テァ¥テ‡ツ「テ‡窶ケテ‡マ\テ‡テ津‡ツゥテ③" with "テ‡テ陛‡ツ「" or "テ‡ツ「テ‡ツ「テ‡ツカ"
  606.   if it is "テ‡ツ「テ‡ツ「テ‡ツカ" then
  607.     exit menu
  608.   end if
  609.   if it is "テ‡テ陛‡ツ「" then
  610.     go to stack "テ厭テ叡テ丑テゥテ凝ュ窶 Pro"
  611.     go to cd "テ、gテュツ」"
  612.     exit menu
  613.   end if
  614. end menu
  615.